Beschrijving
Geeft het decimale serienummer dat wordt gebruikt om een schijfvolume op unieke wijze te identificeren.
Syntaxis
object.SerialNumber
Het object is altijd een Drive-object.
Notities
Met de eigenschap SerialNumber kunt u controleren of de juiste schijf is geplaatst in een station met verwijderbare media.
De volgende code illustreert het gebruik van de eigenschap SerialNumber:
Sub ShowDriveInfo(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Onbekend"
Case 1: t = "Verwijderbaar"
Case 2: t = "Vast"
Case 3: t = "Netwerk"
Case 4: t = "cd-rom"
Case 5: t = "RAM-schijf"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "SN: " & d.SerialNumber
MsgBox s
End Sub